(defsubr): Use XSETPVECTYPE.

diff --git a/src/lread.c b/src/lread.c
index 189fcc0977f081363fd976a5753503e3208e81b8..ae02b454333f60c7cac711a09aeb02183f8a5e37 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -3672,6 +3672,7 @@ defsubr (sname)
 {
   Lisp_Object sym;
   sym = intern (sname->symbol_name);
+  XSETPVECTYPE (sname, PVEC_SUBR);
   XSETSUBR (XSYMBOL (sym)->function, sname);
 }